Qual a série mais bem avaliada? A diferença entre as notas IMDB de cada séries é muito grande?

Parsed with column specification:
cols(
  series_name = col_character(),
  episode = col_character(),
  series_ep = col_integer(),
  season = col_integer(),
  season_ep = col_integer(),
  url = col_character(),
  user_rating = col_double(),
  user_votes = col_double(),
  r1 = col_double(),
  r2 = col_double(),
  r3 = col_double(),
  r4 = col_double(),
  r5 = col_double(),
  r6 = col_double(),
  r7 = col_double(),
  r8 = col_double(),
  r9 = col_double(),
  r10 = col_double()
)

Calculamos a média IMDB de cada série fazendo uma média das notas, dadas pelos espectadores, de cada episódio. Essa nota, por sua vez, é calculada fazendo-se uma média ponderada das notas, variando de 1 a 10, e a quantidade de pessoas que votaram. Portanto, podemos suspeitar que nossa média IMDB é representativa, ou seja, a nota da maioria das pessoas está em torno dessa média. Dito isto, temos que, dentre as séries escolhidas, a maior nota é a de Sherlock, aproximadamente 8.9, porém as outras não não estão muito longe disso.

medias_series = plot_ly(medias_imd_por_serie,
                        x = ~series_name,
                        y = ~media_imdb,
                        name = "Média IMDB Séries",
                        type = "bar",
                        color = ~series_name) %>%
                        layout(yaxis = list(title = "Média IMDB"),
                               xaxis = list(title = "Séries"),
                               barmode = "group")
medias_series

No entanto, podemos ver que The Killing é a que possui uma distribuição de notas mais homogênea, as pessoas votaram de forma mais parecida, enquanto que a dispersão das notas dos episódios de Mad Men e Sherlock são maiores, tendo uma maior diferença entre os votos de cada pessoa. Sendo Mad Men a que tem uma maior distância entre a menor e maior nota atribuida. Além disso, podemos perceber que a mediana e a média de cada série estão próximas uma da outra, confirmando que a média representa bem o que as pessoas acham dessas três séries.

variacoes_notas = plot_ly(series_a_serem_analisadas,
                          x = ~series_name,
                          y = ~user_rating,
                          type = "box",
                          color = ~series_name) %>%
                          layout(yaxis = list(title = "Média IMDB"),
                                 xaxis = list(title = "Série"))
variacoes_notas

Mas será que as avaliações das séries mudam muito de acordo com a temporada?

No gráfico abaixo, podemos observar dois casos interessantes. O público parece não ter gostado muito da última temporada de Sherlock, pois a avaliação da quarta temporada caiu 0.625 em relação a terceira, e é a nota mais baixa atribuída à série. Já The Killing, por mais estranho que pareça, principalmente para quem viu a nota da série no Rotten Tomatoes, parece agradar cada vez mais ao público, mostrando um gráfico sempre crescente. Com relação a Mad Men, as notas não variam muito sempre maior que 8 e menor que 9. Contudo, vemos que a quinta e sexta temporada não são as favoritas.

media_por_temporada = aggregate(series_a_serem_analisadas$user_rating,
                                by = list(series_name = series_a_serem_analisadas$series_name,
                                          season = series_a_serem_analisadas$season),
                                mean)

colnames(media_por_temporada)[3] <- "season_mean"
media_temporada = plot_ly(media_por_temporada,
                          x = ~season,
                          y = ~season_mean,
                          color = ~series_name,
                          type = "scatter",
                          mode = "lines") %>%
                  layout(yaxis = list(title = "IMDB da Temporada"),
                         xaxis = list(title = "Temporada"))

media_temporada
LS0tCnRpdGxlOiAiTWFkIE1lbiwgU2hlcmxvY2sgZSBUaGUgS2lsbGluZyBTZWd1bmRvIG8gSU1EQiIKYXV0aG9yOiAiQ2xhcmEgTW9yYWVzIERhbnRhcyIKZGF0ZTogIjIxIGRlIEFicmlsIGRlIDIwMTgiCm91dHB1dDoKICBodG1sX25vdGVib29rOgogICAgdG9jOiB5ZXMKICAgIHRvY19mbG9hdDogeWVzCiAgaHRtbF9kb2N1bWVudDoKICAgIGRmX3ByaW50OiBwYWdlZAogICAgdG9jOiB5ZXMKICAgIHRvY19mbG9hdDogeWVzCi0tLQoKYGBge3Igc2V0dXAsIGVjaG89RkFMU0UsIHdhcm5pbmc9RkFMU0UsIG1lc3NhZ2U9RkFMU0V9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KGhlcmUpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShwbG90bHkpCmBgYAojIyNRdWFsIGEgc8OpcmllIG1haXMgYmVtIGF2YWxpYWRhPyBBIGRpZmVyZW7Dp2EgZW50cmUgYXMgbm90YXMgSU1EQiBkZSBjYWRhIHPDqXJpZXMgw6kgbXVpdG8gZ3JhbmRlPwoKYGBge3IgZWNobz1GQUxTRSwgd2FybmluZz1GQUxTRX0KI1BlbnNhciBzZSBhIG3DqWRpYSDDqSByZWFsbWVudGUgcmVwcmVzZW50YXRpdmEKc2VyaWVzX2Ffc2VyZW1fYW5hbGlzYWRhcyA9IHJlYWRfY3N2KGhlcmUoImRhdGEvc2VyaWVzX2Zyb21faW1kYi5jc3YiKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHByb2dyZXNzID0gRkFMU0UpICU+JQogICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyKHNlcmllc19uYW1lICVpbiUgYygiTWFkIE1lbiIsICJTaGVybG9jayIsICJUaGUgS2lsbGluZyIpKQoKbWVkaWFzX2ltZF9wb3Jfc2VyaWUgPSBncm91cF9ieShzZXJpZXNfYV9zZXJlbV9hbmFsaXNhZGFzLCBzZXJpZXNfbmFtZSkgJT4lCiAgICAgICAgICAgICAgICAgICAgICAgc3VtbWFyaXplKG1lZGlhX2ltZGIgPSBtZWFuKHVzZXJfcmF0aW5nKSkKYGBgCgpDYWxjdWxhbW9zIGEgbcOpZGlhIElNREIgZGUgY2FkYSBzw6lyaWUgZmF6ZW5kbyB1bWEgbcOpZGlhIGRhcyBub3RhcywgZGFkYXMgcGVsb3MgZXNwZWN0YWRvcmVzLCBkZSBjYWRhIGVwaXPDs2Rpby4gRXNzYSBub3RhLCBwb3Igc3VhIHZleiwgw6kgY2FsY3VsYWRhIGZhemVuZG8tc2UgdW1hIG3DqWRpYSBwb25kZXJhZGEgZGFzIG5vdGFzLCB2YXJpYW5kbyBkZSAxIGEgMTAsIGUgYSBxdWFudGlkYWRlIGRlIHBlc3NvYXMgcXVlIHZvdGFyYW0uIFBvcnRhbnRvLCBwb2RlbW9zIHN1c3BlaXRhciBxdWUgbm9zc2EgbcOpZGlhIElNREIgw6kgcmVwcmVzZW50YXRpdmEsIG91IHNlamEsIGEgbm90YSBkYSBtYWlvcmlhIGRhcyBwZXNzb2FzIGVzdMOhIGVtIHRvcm5vIGRlc3NhIG3DqWRpYS4KRGl0byBpc3RvLCB0ZW1vcyBxdWUsIGRlbnRyZSBhcyBzw6lyaWVzIGVzY29saGlkYXMsIGEgbWFpb3Igbm90YSDDqSBhIGRlIFNoZXJsb2NrLCBhcHJveGltYWRhbWVudGUgOC45LCBwb3LDqW0gYXMgb3V0cmFzIG7Do28gbsOjbyBlc3TDo28gbXVpdG8gbG9uZ2UgZGlzc28uCgpgYGB7cn0KbWVkaWFzX3NlcmllcyA9IHBsb3RfbHkobWVkaWFzX2ltZF9wb3Jfc2VyaWUsCiAgICAgICAgICAgICAgICAgICAgICAgIHggPSB+c2VyaWVzX25hbWUsCiAgICAgICAgICAgICAgICAgICAgICAgIHkgPSB+bWVkaWFfaW1kYiwKICAgICAgICAgICAgICAgICAgICAgICAgbmFtZSA9ICJNw6lkaWEgSU1EQiBTw6lyaWVzIiwKICAgICAgICAgICAgICAgICAgICAgICAgdHlwZSA9ICJiYXIiLAogICAgICAgICAgICAgICAgICAgICAgICBjb2xvciA9IH5zZXJpZXNfbmFtZSkgJT4lCiAgICAgICAgICAgICAgICAgICAgICAgIGxheW91dCh5YXhpcyA9IGxpc3QodGl0bGUgPSAiTcOpZGlhIElNREIiKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHhheGlzID0gbGlzdCh0aXRsZSA9ICJTw6lyaWVzIiksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBiYXJtb2RlID0gImdyb3VwIikKbWVkaWFzX3NlcmllcwpgYGAKCk5vIGVudGFudG8sIHBvZGVtb3MgdmVyIHF1ZSBUaGUgS2lsbGluZyDDqSBhIHF1ZSBwb3NzdWkgdW1hIGRpc3RyaWJ1acOnw6NvIGRlIG5vdGFzIG1haXMgaG9tb2fDqm5lYSwgYXMgcGVzc29hcyB2b3RhcmFtIGRlIGZvcm1hIG1haXMgcGFyZWNpZGEsIGVucXVhbnRvIHF1ZSBhIGRpc3BlcnPDo28gZGFzIG5vdGFzIGRvcyBlcGlzw7NkaW9zIGRlIE1hZCBNZW4gZSBTaGVybG9jayBzw6NvIG1haW9yZXMsIHRlbmRvIHVtYSBtYWlvciBkaWZlcmVuw6dhIGVudHJlIG9zIHZvdG9zIGRlIGNhZGEgcGVzc29hLiBTZW5kbyBNYWQgTWVuIGEgcXVlIHRlbSB1bWEgbWFpb3IgZGlzdMOibmNpYSBlbnRyZSBhIG1lbm9yIGUgbWFpb3Igbm90YSBhdHJpYnVpZGEuIEFsw6ltIGRpc3NvLCBwb2RlbW9zIHBlcmNlYmVyIHF1ZSBhIG1lZGlhbmEgZSBhIG3DqWRpYSBkZSBjYWRhIHPDqXJpZSBlc3TDo28gcHLDs3hpbWFzIHVtYSBkYSBvdXRyYSwgY29uZmlybWFuZG8gcXVlIGEgbcOpZGlhIHJlcHJlc2VudGEgYmVtIG8gcXVlIGFzIHBlc3NvYXMgYWNoYW0gZGVzc2FzIHRyw6pzIHPDqXJpZXMuCgpgYGB7cn0KdmFyaWFjb2VzX25vdGFzID0gcGxvdF9seShzZXJpZXNfYV9zZXJlbV9hbmFsaXNhZGFzLAogICAgICAgICAgICAgICAgICAgICAgICAgIHggPSB+c2VyaWVzX25hbWUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgeSA9IH51c2VyX3JhdGluZywKICAgICAgICAgICAgICAgICAgICAgICAgICB0eXBlID0gImJveCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgY29sb3IgPSB+c2VyaWVzX25hbWUpICU+JQogICAgICAgICAgICAgICAgICAgICAgICAgIGxheW91dCh5YXhpcyA9IGxpc3QodGl0bGUgPSAiTcOpZGlhIElNREIiKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeGF4aXMgPSBsaXN0KHRpdGxlID0gIlPDqXJpZSIpKQp2YXJpYWNvZXNfbm90YXMKYGBgCgojIyNNYXMgc2Vyw6EgcXVlIGFzIGF2YWxpYcOnw7VlcyBkYXMgc8OpcmllcyBtdWRhbSBtdWl0byBkZSBhY29yZG8gY29tIGEgdGVtcG9yYWRhPwoKTm8gZ3LDoWZpY28gYWJhaXhvLCBwb2RlbW9zIG9ic2VydmFyIGRvaXMgY2Fzb3MgaW50ZXJlc3NhbnRlcy4gTyBww7pibGljbyBwYXJlY2UgbsOjbyB0ZXIgZ29zdGFkbyBtdWl0byBkYSDDumx0aW1hIHRlbXBvcmFkYSBkZSBTaGVybG9jaywgcG9pcyBhIGF2YWxpYcOnw6NvIGRhIHF1YXJ0YSB0ZW1wb3JhZGEgY2FpdSAwLjYyNSBlbSByZWxhw6fDo28gYSB0ZXJjZWlyYSwgZSDDqSBhIG5vdGEgbWFpcyBiYWl4YSBhdHJpYnXDrWRhIMOgIHPDqXJpZS4gSsOhIFRoZSBLaWxsaW5nLCBwb3IgbWFpcyBlc3RyYW5obyBxdWUgcGFyZcOnYSwgcHJpbmNpcGFsbWVudGUgcGFyYSBxdWVtIHZpdSBhIG5vdGEgZGEgc8OpcmllIG5vIFJvdHRlbiBUb21hdG9lcywgcGFyZWNlIGFncmFkYXIgY2FkYSB2ZXogbWFpcyBhbyBww7pibGljbywgbW9zdHJhbmRvIHVtIGdyw6FmaWNvIHNlbXByZSBjcmVzY2VudGUuIENvbSByZWxhw6fDo28gYSBNYWQgTWVuLCBhcyBub3RhcyBuw6NvIHZhcmlhbSBtdWl0byBzZW1wcmUgbWFpb3IgcXVlIDggZSBtZW5vciBxdWUgOS4gQ29udHVkbywgdmVtb3MgcXVlIGEgcXVpbnRhIGUgc2V4dGEgdGVtcG9yYWRhIG7Do28gc8OjbyBhcyBmYXZvcml0YXMuCgpgYGB7cn0KbWVkaWFfcG9yX3RlbXBvcmFkYSA9IGFnZ3JlZ2F0ZShzZXJpZXNfYV9zZXJlbV9hbmFsaXNhZGFzJHVzZXJfcmF0aW5nLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJ5ID0gbGlzdChzZXJpZXNfbmFtZSA9IHNlcmllc19hX3NlcmVtX2FuYWxpc2FkYXMkc2VyaWVzX25hbWUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNlYXNvbiA9IHNlcmllc19hX3NlcmVtX2FuYWxpc2FkYXMkc2Vhc29uKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtZWFuKQoKY29sbmFtZXMobWVkaWFfcG9yX3RlbXBvcmFkYSlbM10gPC0gInNlYXNvbl9tZWFuIgpgYGAKCmBgYHtyfQptZWRpYV90ZW1wb3JhZGEgPSBwbG90X2x5KG1lZGlhX3Bvcl90ZW1wb3JhZGEsCiAgICAgICAgICAgICAgICAgICAgICAgICAgeCA9IH5zZWFzb24sCiAgICAgICAgICAgICAgICAgICAgICAgICAgeSA9IH5zZWFzb25fbWVhbiwKICAgICAgICAgICAgICAgICAgICAgICAgICBjb2xvciA9IH5zZXJpZXNfbmFtZSwKICAgICAgICAgICAgICAgICAgICAgICAgICB0eXBlID0gInNjYXR0ZXIiLAogICAgICAgICAgICAgICAgICAgICAgICAgIG1vZGUgPSAibGluZXMiKSAlPiUKICAgICAgICAgICAgICAgICAgbGF5b3V0KHlheGlzID0gbGlzdCh0aXRsZSA9ICJJTURCIGRhIFRlbXBvcmFkYSIpLAogICAgICAgICAgICAgICAgICAgICAgICAgeGF4aXMgPSBsaXN0KHRpdGxlID0gIlRlbXBvcmFkYSIpKQoKbWVkaWFfdGVtcG9yYWRhCmBgYAoKCg==